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ET | "EDTSSETCOMMAN = set command file name‘ 
MODULE EDTSSETCOMMAN ( ' Set command file name 
{DENT = *v04-000' ! File: SETCOMMAN.BLI Edit: JBS1006 
= 
BEGIN 


VORA AEA AA EAHA H HAART AAHEAHEHAHHAHHEEA RAHA AAA HARARE RAeRARTAAeeAee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
‘* ONLY IN ACCORDANCE WITH R OF SUCH LICENSE AND WITH THE 
t* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


& 
® 
a 
® 
® 
® 
® 
® 
® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- semPOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


'@ 
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wie: FOR THE USE OR RELIABILITY OF ITS 
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FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 
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i 
' 
i 
i 
Hs ENVIRONMENT: Runs at any access mode - AST reentrant 
0040 AUTHOR: John Sauter, CREATION DATE: June 3, 1982 
0048 MODIFIED BY: 
4 1! 1-001 - Original. JBS 07-Jun-1982 
5 ! 1-002 = Don*t open the file on the INCLUDE channel if the COMMAND channel 
§ : is not aiready open. This is because the initial opens from 
04 : EDTSEDIT must have a default name which is only supplied on 
3 ; the COMMAND channel. JBS gee gunn 199 
! 1-003 - Close the correct file. JBS 11-Jun-1982 
50 ! 1-004 = Set EDTS$SG_CMD_OPN when the command file is open. JBS 11-Jun-1982 
0051 ' 1-005 = Pass the default file name in the RHB parameter. JBS 15-Jun-1982 
b2¢ : 1-006 - Accept the default name as a parameter. JBS 23-Aug-1982 
54 : 
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UeDT SRCISETCOMMAN:BLI 74 
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In the routine 


SBTTL ‘Declarations’ 
i TABLE OF CONTENTS: 
EDTSSSET_COMFNAM; 
F ZBLISS (BLIS$32) 
EQUATED SYMBOLS: 
EXTERNAL REFERENCES: 


REQUIRE ‘EDTSRC:TRAROUNAM'; 
INCLUDE FILES: 


RRRASSSSSSSSSSLEKAAK LAR {asasosaooeooo 


FRCS HS HS HS HS TS HS HS HS HS HS HS HES HR HS HS FS HS HS HSCS FS FSH FSFE FO Fe terete rete teatearteterte 


i 
wD 
— 
an 
= 
vo 
co 
f 
~~) 
oe 
w 
Ca) 
o 
HE 
uw 
- @ 
we 
“ee 
Aan 
-v 
aw 
wo 
Yv 
- 
us 
= 
ss 


a he +3 COMMAN 4 DISSE clyonvs = set command file name 18-se -Sep-1984 o Mi: 3: 23 AX-11 Bliss-32 V4.0-/4 Page 3 
TSSSET_COMFNAM = set command file name 14-Sep-1984 EDT. SRCJSETCOMMAN.BLI; (3) 


H 38 95 ! ZSBTITL "EDTSSSET_COMFNAM = set command file name’ 

3 38 3 | GLOBAL ROUTINE EDTSSSET_COMFNAM ( ' Set command file name 

3 38 1 NADDR, ! Address of new command file —— 

_ 1 NLEN ' Length of new command file 

: 1 1 DADDR, i Address of new command file defeult name 

3 : § f 1 : Bt LEN ! Length of new command file default name 

4 = 

; 1 a8 

; 105 7 1 lee 

; ; , 5 : FUNCTIONAL DESCRIPTION: 

; 198 7 1 i Set a new command file name. If the file does not exist there is no 

, 9 7 1: effect. Otherwise the current command file is abandoned and the new 
3 119 f : command file is read instead. 
: 118 ah FORMAL PARAMETERS: | 
; 118 z : NADDR Address of new command file name, or 0 if none. | 
; 118 . ; NLEN Length of new command file name, or 0 if none. 

: 18 07 } DADDR Address of new command file default name, or 0 if none. | 
3 ; 07 : DLEN Length of new command file default name, or 0 if none. 
. % é 721 1! IMPLICIT INPUTS: 

.. | 7 1 i 
3: «(126 7 1/ EDTSSA_C ’ _NAM 
> 125 724 1} EDT$$G_CMD_NAMLEN | 
3s 14 07 1 EDTS$G_ EMD “OPN 

: 127 0726 1: | 
; 128 07 1 | IMPLICIT OUTPUTS: 

: 129 44 1! 

ep 7 1} EDTSSA_CMD_NAM 
3; («131 7 1! EDTS$$G_CMD_NAMLEN 
3 : ¢ 4 ; EDTS$G_CMD_OPN 
i 13 733 1 | ROUTINE VALUE: | 
; 1 7 1! 0 = File not present, EDTSSA_CMD_NAM unchanged (or error, accompanied by message) 
3 133 44 ; 1 = file present, EDTSSA_ CMD-NAM changed, or no file named. | 
: 139 78 i SIDE EFFECTS: 

; 140 7 1 i 

3; «(141 740 1! NONE 
3 | 741 1! 
; «16 pee 1 i-- 
3; 6146 74 1 

3 «(145 744 BEGIN 
Z 109 745 | 
3; («14 74 EXTERNAL ROUTINE 
; «6148 74 EDTSSDEA_ ap.’ NOVALUE, ' Deallocate heap storage 

3; «(149 74 EDTSSAL ' Allocate heap storage 

; So 74 EDTSSFMT_ msg : NOVALUE, ' Put the text for a message in the format buffer 

: 151 750 EDT TSSCALte] : po file 1/0 
s 132 751 EDTSSF IOPN_ Par : NOVALUE; ! Print a message if a file operation files 
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COMMAN = set command file name 16-Sep-1984 01:50: AX-11 Bliss 32 V4.0-74 Pp 4) 
T_COMFNAM = set command file name 14 att fi 93:30:22 EDT. SRCJSETCOMMAN.BLI M4 sty » 


EDTS 

EDTS 
3 | 
L ZIF ZBLISS (BLISS32) 
2 TTHEN 
§ EXTERNAL ROUTINE 
STRSFREE1_DX; ! Deallocate a synamic string 
§ FI 
0 | 

761 EXTERNA , 
: EDTSSA_CMD_NAM : REF BLOCK C, BYTE], ' Name of the command file 
4 


PASAT 4 


SN OOO 


EDT$$G_C = command file is open 


EDTSSG_ TorT. NFND; = last open failed because of file not found 


EXTERNA LINELUD 
EDT NCLUDE_ 


D 
ED TSR OPEN I 
EDTSK_CLOSE; 


' Channel for sepesne for presence of command file 
! Command file channel 

! Code for opening for input 

! Code for closing a file 


own 
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CAL 
FILE DESC : BLOCK {S. ort? 


ae pe + tele “BLOCK C8, BYTE), 


EDTSS$G_ cmp _NAML EN, 12% of | command file name 
4A MESSAGES (CINSMEM, COMFILCLO, COMFILNOP, COMFILNEX)); 
ZBLISS (BLISS32) 


Cc 


8 eer 
Oo 
ww 


ZIF 
ZTHE 
LE_DESC COSCSB “CLASS) = 
LE'DESC CDSC$B° CLASS 
BESC COSC$B_BTYPE) = D 
DESC CDSCS$B_CLASS) = D 


| 
| 
K_DTYPE_T; 
KSCLASS =D: 
| 
| 
| 
| 
| 


“CLASS? “5; 


UPWN—oO 
Wo 


zFI " 


DESC poscsy W_LENGTH] = 0; 
DESC CDSCSA rPOINTER] = = 6; 
ESC pstsy Ce 


SS 


GTH 
SA"POINTER) = %. 


'¢ 
i Set up RHB_DESC 
STRING_DESC (RHB_DESC, DLEN, .DADDR); 


! Switch to the new command file, if it exists. 
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AY »NADDR NEQA 0) AND .EDTS$G_CMD_OPN) 
BEGIN 
STRING_DESC (FILE DESC, NLEN, DOR); 
STATUS~= EDTSSCALCFIO (EDTSK. “OPEN. INPUT, EDTSK_INCLUDE_FILE, FILE_DESC, RHB_DESC); 
IF ( NOT .STATUS) 
THEN 
BEGIN 
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3 
OMMAN = set command file name 1b-sep-19 4 93:30:83 AX-11 Oh isecte V4.0-74 
_COMFNAM = set command file name 14-Sep-1984 12:24: EDT. SRCJSETCOMMAN.BLI; 

IF ( NOT .EDTSSG_IOFI_NFND) THEN EDTSSFIOPN_ERR (EDTS_COMFILNOP, FILE_DESC); 
ZOLISS (BL1$$32) 


STRSFREEI_DX (FILE 
STRSFREE1_DX (RHB_ 


ZIF 
ZTHE 
ZF 1 
RETURN (0) 
END; 
+ 
: Now that we know that the file exists we can close it on the INCLUDE channel. 
STATUS = EDTSSCALLFIO (EDTSK_CLOSE, EDTSK_INCLUDE_FILE, 0, 0); 
IF ( NOT .STATUS) 
THEN 


BEGIN 

EDTSSFIOPN_ERR (EDTS_COMFILCLO, FILE_DESC); 
ZiF BLISS (BLISS32) 
THEN 


STRSFREE1 (FILE 


DX DESC); 
STRSFREE1_DX (RHB_DESC); 


5 
aFI 


RETURN (0); 
END; 


END; 
te 
! Either the file exists, or no command file is currently open, or no file name is specified. 
! If the command file is currently open, close it. 
IF .EDTS$G_CMD_OPN 
THEN 
BEGIN 
STRING_DESC (FILE DESC, EDTS$G_CMD_NAMLEN, .EDTSSA_CMD_NAM); 
STATUS~= EDTSSCALCFIO (EDTSK_CCOSE> EDTSK_COMMAND_FILE; 0, 6); 


IF ( NOT .STATUS) 
THEN 


BEGIN 
EDTSSFIOPN_ERR (EDTS_COMFILCLO, FILE_DESC); 


ZIF XBLISS (BLISS32) 

ZTHEN 
STRSFREE1_DX (FILE DESC); 
STRSFREE1-DX (RHB_DESC); 


IFI 
RETURN (0); 
END; 
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3 EDTS$G_CMD_OPN = 0; 

: i De eal Locate the previous string, if any Note that if EDTS$$G_CMD_OPN is zero 
3 ; ! the old space is not dealloca ed. $EDIT takes advantage of this. 

; 7 

3 a IF (.EDTS$G_CMD_NAMLEN NEQ 0) THEN EDTSSDEA_HEAP (EDTSS$G_CMD_NAMLEN, EDTSS$A_CMD_NAM); 
; 75 END; 

5 78 

3 7 '¢ 

3 i } If no new file has been specified, clean up and exit. 

; 880 2 

; 1 IF (.NADDR EQLA 0) 

5 ¢ THEN 

3 8 BEGIN 

rs 884 EDTS$G_CMD_NAMLEN = 0; 

; 0885 EDTSSA_CMD_NAM = 0; 

; 88 ELSE 

3 t4 , BEGIN 

: i The command file is not open and a file has been specified. The file may 
; 0891 i not be propent. Open errors return an error code but print no message. 
3 begs There should be an open error only if this is the initial open. 

: 0894 3 STRING_DESC (FILE_DESC, NLEN, 

: 0895 STATUS = EDTSSCALCFIO (EDTSK. “OPEN. INPUT, EDTS$K_COMMAND_FILE, FILE_DESC, RHB_DESC); 
; 0897 ri IF ( NOT .STATUS) 

; 0898 3 THEN 

3 899 4 BEGIN 

; L 0901 4 ZIF XBLISS (BLISS32) 

r 34.04 4 XTHEN 

3 0903 4 STRSFREE1_DX (FILE_DESC); 

3 0904 4 STRSFREE1_DX (RHB_BESC); 

4 4 2 ZtFI 

: 308 $909 4 RETURN (0); 

3 8 END; 

3 19 909 

3 1 10 '¢ 

3 \ 12 Remember the new file name for when we CLOSE it. 

: 314 1 : 

; 315 14 IF EDTS$SALO_HEAP (NLEN, EDTSS$A_CMD_NAM) 

; 16 15 THEN 

3 1 18 4 BEGIN 

; 318 17 & EDTS$G_CMD_NAMLEN = 

; 319 18 4 EDTSSCPY_MEM (.NLEN, MAADOR, .EDTSS$A_CMD_NAM) ; 

3 0 19 4 END 

; 1 0 3 

3 § 1 4 core 

; 2 4 Et SFMT_MSG (EDTS_INSMEM); 
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TCOMMAN = set command file name 
ET_COMF = set command file name 
4 
4 Z1IF ZBLISS (BLISS32) 
4 ZTHEN 
4 STRSFREE1_DX (FILE DESC); 
4 STRSFREE1_DX (RHB_BESC); 
? ZF 1 
4 RETURN (0); 
END; 
EDTSS$G_CMD_OPN = 1; 
END; 
ZIF ZBLISS (BLISS32) 
ZT THEN 
STRSFREE1_5X (FILE DESC); 
STRSFREE1_DX (RHB_BESC); 
ZF I 
5 —sORETURN (1); 
1 END; 
OFFC 00000 
8 G 9E 00 
8 3 8 i Se 
9 G 9E 
; ¢ 9 3 o0017 
6 900000006 00 9€ 00025 
E . ¢ C 
04 AE 020E90 F OD F 
AE 04 7 
020E00 8F OD A 
4 AE 04 29 
b AC BF 004 
0 AE OF Bug 


! of routine EDTSSSET_COMFNAM 
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EDTSSDEA_ HEAP, EDISSALO HEAP 
EDTSSFMT MSG, EDT$S$CALLFIO 
EDTSSFIOPN_ sPer R, STRSPREE! Dx 
SA_CMD_-NAM, EDTS$G_CMD_NAMLEN 
$$G~CMD~OPN EDTS8C- 1OF T_NFND 
$k _INCLODE_FIL 
=CORMAND FILE 


SMEM 
Tests COMF ILNOP 
$2 COME IENEX: STRSTOPY_R 


-EDTSCODE ,NOWRT, SHR, PIC,2 
EDTSSSET_COMFNAM, Save R2,R3,R4,R5,R6,R7,- 
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83 STRECOPY_R 
NADDR, R 


ES TSS6_CAD_OPN. 2$ 


C 
C 
FILE DESC 
weDTSK_IN 


STATUS, 

EDTSS6 IOFI_NFND, 5$ 
#EDTS_COMF ILNOP 
=(SP) 
WEDTSK_INCLUDE_FILE 
#EDTSK-CLOS 

#4, EDTSSCALLFIO 
RO, STATUS 

STATUS, 3$ 
EDTS$G_CMD_OPN, 7$ 
EDTSSA_CHD_NAM 

FILE DESC 

e pp RSCOPY A 
WEDTSK_COMMAND_F ILE 
#EDTSK-CLOS 

#4, EDTSSCALLFIO 
RO, STATUS 

STATUS 


FILE DESC 
#EDTS_COMFILCLO 
EBTS$FIOPN_ERR 


s 
EDT$$G_CMD_OPN 
EDTSSG_CMD_NAMLEN 
R 

fe 


. EDTSSDEA_HEAP 


othe tag 


3; Routine Size: 
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1 !<BLF /PAGE> 
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Routine Base: 
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p-1986 f2:2e:03 — EeDT. sre} 


$s-32 Ve Boras 
ETCOMMAN.BLI; 
I 
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#WEDTSK_COMMAN LE 


a, 
RO, STAT 
STATUS, Bs 
R6 
EN 
’ » EDTSSALO_HEAP 
NLEN, EDT$$G_CMD_NAMLEN 
EDTS$A_CMD_NAM, RO 
NLEN, TR2)> (RO) 
HEDTS INSMEM 
#1, EDTSSFMT_MSG 
FILE DESC 
#1, STRSFREE1_Dx 
#1, STRSFREE1_DXx 
#1, EDT$$G_CMD_OPN 
#1, STRSFREE1_DXx 


#1, STRSFREE1_DXx 
#1, RO 


RO 
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EDTSSETCOMMAN EDTSSETCOMMAN = set command file name 16-Sep-1984 0: AX-11 Bliss-32 V4.0-74 Page a 
100-000 EDTSSSET_COMFNAM = set command file name 122888: -1 1984 93: 38 8 EDT. SRCJSETCOMMAN.BLI; . (4) 
; 348 Rss 1 END ! of module EDTSSETCOMMAN 

; 349 947 1 

; 350 948 0 ELUDOM 

: PSECT SUMMARY 
; Name Bytes Attributes 

: _EDTSCODE 360 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

3 Library Statistics 

; eoccssee Symbols coocece Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28: EDT. SRCJEDT 32:1 377 2 0 40 00:00.2 

3 Bien He: T.SRC ss OEE 2 1 50 7 00:00.1 

3 =$255$DUA28:CSYSLIBISTARLET.L32;1 9776 6 0 581 00:04.0 

; COMMAND QUALIFIERS 

; ase Loe eee CORD SETA, LPT SSE) PUSTRALEBAREAL L804, SEs SE TCO ER SHOR IS SE TCO MSRC$:SETCOMMAN.BLI/UPDATE=(ENHS$:S 

3; Size: 360 6°85 + 0 data bytes 

3; Run Time: 725. 

3; Elapsed Time: 00:37.3 

3 Lines/CPU Min: 27 

3 Lexemes/CPU-Min: 46 

: Memory Used: 152 pages 


Compication Complete 
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